home *** CD-ROM | disk | FTP | other *** search
Wrap
XSetup plugin | 2001-01-23 | 1.9 KB | 83 lines
"FILE"="Xteq Systems X-Setup Plugin 5.0" "TYPE"="5" "COUNT"="2" "UIPATH"="Internet\Real Networks\" "NAME"="Clear Cookies" "VERSION"="1.10" "WARNING"="1" "LANGUAGE"="VBScript" "TEXT 1"="Clear Cookies" "TEXT 2"="Clear Cookies (total erase!)" "DESCRIPTION 1"="This plug-in will totally erase the entire contents of the RealPlayer Cookies file." "DESCRIPTION 2"="If you select to open the second option, the cookies.txt will be filled with garbage before deleting so even an undelete does not show what was inside the files." "AUTHOR"="Xteq Systems" "CONTACTURL"="http://www.xteq.com" "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved" "COMMENT 1"=" " "COMMENT 2"="Thanks to CptSiskoX for the help." sP="HKCR\Software\RealNetworks\RealMediaSDK\6.0\Preferences\CookiesPath\@" Sub Plugin_Initialize End Sub Sub Plugin_CheckData(ElementIndex) End Sub Sub Plugin_Apply(ElementIndex,ElementSubIndex) if ElementIndex=1 then Call DoWork(false) else Call DoWork(true) end if End Sub Sub DoWork(EraseTotally) s=RegReadValue(sP) s=CStr(s) if len(s)>0 then if FileExists(s) then sFile=s Call FileSetAttribute(sFile,"R-") Call FileSetAttribute(sFile,"H-") Call FileSetAttribute(sFile,"S-") if EraseTotally then lC=TxtOpen(sFile) 'replace contents of file for l=1 to lC Call TxtSetLine(l,"-") next Call TxtSave() end if 'now kill the file FileDelete(sFile) 'done! Call msginformation("Cookies cleared!") else Call msgerror("Unable to locate Cookies file - nothing done!") end if else Call msgerror("Unable to locate Cookies file - nothing done!") end if end Sub Sub Plugin_Terminate End Sub